home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh88b.d64 / plotter demo 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.2 KB  |  63 lines
  1. 1 IFA=0THENA=1:LOAD"PLOTTER",8,1
  2. 5 PRINT"[147]
  3. 10 [158]20480
  4. 15 [153]"BEISPIEL FUER EINEN FUNKTIONSPLOTTER    MIT EXAKTER CM-EINTEILUNG
  5. 16 GOSUB1000:PRINT"PLOTTEN FUNKTION 1 ODER 2 ?
  6. 17 [161]FR$:[139]FR$[179]"1"[176]FR$[177]"2"[167]17
  7. 18 FR[178][197](FR$)
  8. 20 [159]12,12
  9. 30 [152]12,"E1
  10. 40 PRINT#12,"K1
  11. 50 [152]12,"M0,100
  12. 60 PRINT#12,"D201,100
  13. 70 [152]12,"U1
  14. 80 PRINT#12,"I-5,-5
  15. 90 [152]12,"I-5,5
  16. 100 PRINT#12,"U0
  17. 110 [152]12,"M101,200
  18. 120 PRINT#12,"D101,0
  19. 130 [152]12,"U1
  20. 140 PRINT#12,"I5,5
  21. 150 [152]12,"I-5,5
  22. 160 PRINT#12,"U0
  23. 170 [129]I[178][171]9[164]9:[139]I[178]0[167]220
  24. 180 [152]12,"M99,"100[171]10[172]I
  25. 190 [152]12,"I4,0
  26. 200 PRINT#12,"R1,-1
  27. 210 [152]12,"P"I
  28. 220 [130]
  29. 270 [129]I[178][171]9[164]9:[139]I[178]0[167]320
  30. 280 [152]12,"M"101[170]I[172]10",98
  31. 290 PRINT#12,"I0,4
  32. 300 [152]12,"R-3,2
  33. 310 PRINT#12,"P"I
  34. 320 NEXT
  35. 330 PRINT#12,"S1
  36. 340 [152]12,"M101,100
  37. 350 PRINT#12,"N6
  38. 360 [152]12,"M111,5
  39. 370 PRINT#12,"PY
  40. 380 [152]12,"M190,90
  41. 390 PRINT#12,"PX
  42. 410 [152]12,"S0
  43. 430 FORX=-9TO9STEP.5
  44. 435 ONFRGOTO440,443
  45. 440 Y=(X*X/4.5)-9:GOTO450
  46. 443 Y=(SIN(X/2)*6+COS((X-3)/6)-X)/1.5
  47. 450 IFFG=.THENFG=1:PRINT#12,"."X*10+101","100-Y*10:GOTO460
  48. 455 PRINT#12,"D"X*10+101","100-Y*10
  49. 460 PRINT#12,"N5
  50. 470 [130]
  51. 480 [152]12,"M0,190
  52. 490 PRINT#12,"Z1
  53. 500 [152]12,"S1
  54. 505 ONFRGOTO510,513
  55. 510 PRINT#12,"PY=(X*X/4.5)-9":GOTO520
  56. 513 PRINT#12,"PY=(SIN(X/2)*6+COS((X-3)/6)-X)/1.5
  57. 520 [152]12,"O
  58. 900 END
  59. 1000 PRINT"ACHTUNG: BEI DER EPSON-VERSION DES
  60. 1001 [153]"PLOTTER-SIUMLATORS WIRD DER RECHTE TEIL
  61. 1002 PRINT"DES BILDES ABGESCHNITTEN! WARUM, STEHT
  62. 1003 [153]"IN DER BEDIENUNGSANLEITUNG.":[142]
  63.